home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b5.d64
/
intro.l
< prev
next >
Wrap
Text File
|
2007-02-28
|
523b
|
20 lines
9000 //
9010 PROC INTRO(TITLE$) CLOSED
9020 // REQUIRES PROC PAGE
9030 LENGTH:=LEN(TITLE$)
9040 LEFT':=(40-LENGTH) DIV 2
9050 RIGHT':=40-LEFT'-LENGTH
9060 PAGE // CLEAR SCREEN
9070 PRINT CHR$(14), // LOWER CASE
9080 BACKGROUND (0) // BLACK
9090 BORDER (12) // GRAY
9100 PENCOLOR (12) // GRAY
9110 PRINT CHR$(18), //REVERSE ON
9120 FOR X:=1 TO LEFT' DO PRINT " ",
9130 PRINT TITLE$,
9140 FOR X:=1 TO RIGHT' DO PRINT " ",
9150 FOR X:=1 TO 40 DO PRINT CHR$(162),
9160 PRINT CHR$(146), //REVERSE OFF
9170 ENDPROC INTRO
9180 //